home *** CD-ROM | disk | FTP | other *** search
- object ChooseDir: TChooseDir
- Left = 283
- Top = 186
- ActiveControl = Path
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Choose Directory'
- ClientHeight = 269
- ClientWidth = 250
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- FormStyle = fsStayOnTop
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 13
- Top = 10
- Width = 201
- Height = 13
- Caption = 'Please choose the directory for installation:'
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object PathLabel: TLabel
- Left = 13
- Top = 34
- Width = 25
- Height = 13
- Caption = '&Path:'
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 13
- Top = 218
- Width = 33
- Height = 13
- Caption = 'Dri&ves:'
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 13
- Top = 86
- Width = 53
- Height = 13
- Caption = '&Directories:'
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object OKBtn: TBitBtn
- Left = 158
- Top = 104
- Width = 81
- Height = 27
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnClick = OKBtnClick
- Kind = bkOK
- Margin = 4
- Spacing = -1
- IsControl = True
- end
- object CancelBtn: TBitBtn
- Left = 158
- Top = 138
- Width = 81
- Height = 27
- TabOrder = 1
- OnClick = CancelBtnClick
- Kind = bkCancel
- Margin = 4
- Spacing = -1
- IsControl = True
- end
- object Path: TEdit
- Left = 13
- Top = 52
- Width = 225
- Height = 21
- TabOrder = 2
- Text = 'C:\Program Files\AquaScape'
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 13
- Top = 105
- Width = 133
- Height = 101
- ItemHeight = 16
- TabOrder = 3
- OnChange = DirectoryListBox1Change
- end
- object DriveComboBox1: TDriveComboBox
- Left = 13
- Top = 236
- Width = 133
- Height = 19
- DirList = DirectoryListBox1
- TabOrder = 4
- end
- end
-